unit unit_Debug;

interface

var
  dbgfile: TextFile;

procedure dbgprint(s: string);
procedure dbgprintln(s: string);

implementation

procedure dbgprint(s: string);
begin
  write(dbgfile, s);
end;

procedure dbgprintln(s: string);
begin
  writeln(dbgfile, s);
end;

initialization
  AssignFile(dbgfile, 'debug.dbg');
  Rewrite(dbgfile);

finalization
  CloseFile(dbgfile);

end.
